home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Education'More / D-G / French 1.1.sea / French 1.1 / background_2773.txt < prev    next >
Text File  |  1992-03-27  |  3KB  |  158 lines
  1. -- background: 2773 from stack: in.1
  2. -- bmap block id: 5945
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 05
  10. -- high flags: 0000
  11. -- rect: left=0 top=74 right=171 bottom=384
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 36
  17. -- style flags: 256
  18. -- line height: 48
  19. -- part name: French
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 85
  24. -- high flags: 0000
  25. -- rect: left=0 top=74 right=171 bottom=384
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 36
  31. -- style flags: 256
  32. -- line height: 48
  33. -- part name: English
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=340 top=177 right=216 bottom=384
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 16662 / 16662
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: New Button
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   if the icon of me is "16663" then
  51.     EtoF
  52.   else
  53.     FtoE
  54.   end if
  55. end mouseUp
  56.  
  57. on EtoF
  58.   lock screen
  59.   set the icon of me to "16662"
  60.   hide fld "English"
  61.   show fld "French"
  62.   unlock screen with visual scroll left  fast
  63.  
  64. end EtoF
  65.  
  66. on FtoE
  67.   lock screen
  68.   set the icon of me to "16663"
  69.   hide fld "French"
  70.   show fld "English"
  71.   unlock screen with visual scroll right  fast
  72. end FtoE
  73.  
  74.  
  75.  
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 85
  80. -- high flags: 0000
  81. -- rect: left=0 top=196 right=216 bottom=121
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: cardsinuse
  90.  
  91.  
  92. -- part 8 (button)
  93. -- low flags: 00
  94. -- high flags: 2000
  95. -- rect: left=297 top=177 right=216 bottom=341
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 8979 / 8979
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: New Button
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.   if the optionKey is up then go next marked cd
  107.   else go next
  108.   if the result is not  empty then answer "Choose an item from the"&"e&"Category""e&&"menu first."
  109. end mouseUp
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116. -- part 9 (button)
  117. -- low flags: 00
  118. -- high flags: 2000
  119. -- rect: left=254 top=177 right=216 bottom=298
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 8964 / 8964
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: New Button
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   if the optionKey is up then go previous marked card
  131.   else go previous
  132.   if the result is not empty then answer "Choose an item from the"&"e&"Category""e&&"menu first."
  133.  
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 10 (button)
  139. -- low flags: 00
  140. -- high flags: 2000
  141. -- rect: left=211 top=177 right=216 bottom=255
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 17169 / 17169
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: New Button
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   if the optionKey is up then go marked cd random (the number of marked cards)
  153.   else go cd random (the number of cards)
  154.   if the result is not empty then answer "Choose an item from the"&"e&"Category""e&&"menu first."
  155.  
  156. end mouseUp
  157.  
  158.